home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / dod_ru10.zip / RESUME.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-05-16  |  4KB  |  177 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     If ((!Exist(ReadLine(PCBDat(), 30)) || !Exist(ReadLine(PCBDat(), 46))) || !Exist(ReadLine(PCBDat(), 31))) Then
  29.         Cls
  30.         PrintLn "@X0BR@X03esume @X0BU@X03pload  @X09v1.0   @X0FCo@X07de@X08d @X0Fb@X07y @X0FMo@X07o@X08n @X0FSh@X07ad@X08ow @X07/ @X0FD@X070@X08D@X07"
  31.         Newline
  32.         PrintLn "@X0CError reading PCBOARD.DAT!  Aborting ... @X07"
  33.         Log "RUP: Error reading PCBOARD.DAT!", 0
  34.         End
  35.     Endif
  36.     If (Upper((GetToken() == "Y"))) Then
  37.         STRING005 = Date()
  38.     Else
  39.         STRING005 = "-"
  40.     Endif
  41.     Cls
  42.     PrintLn "@CLS@@X7B RESUME UPLOAD v1.0                                 Coded by Moon Shadow / D0D @X07"
  43.     PrintLn "@X08╔════════════════════@X07═══════@X0F═@X07══@X0F═@X07═══@X0F═══@X07═══@X0F═══@X07══@X0F════@X07═@X0F═══════════════════════════╗"
  44.     PrintLn "@X08║ @X09FiLE :                                                                      @X0F║"
  45.     PrintLn "@X08╚═══════════@X07══════════════@X0F═@X07═@X0F═@X07═══@X0F══@X07═@X0F═@X07════@X0F══════════════════════════════════════╝@X07"
  46.     AnsiPos 10, 3
  47.     Print " @X8B■ SEARCH ABORTED UPLOAD@X07                                             "
  48.     FClose 0
  49.     FOpen 0, ReadLine(PCBDat(), 30), 2, 0
  50.     While (Ferr(0) == 0) Do
  51.         FGet 0, STRING001
  52.         If (InStr(STRING001, "**************************************************************")) FGet 0, STRING002
  53.         If ((((InStr(STRING001, "(U)") && InStr(STRING001, "Aborted")) && InStr(STRING002, STRING005)) && InStr(STRING002, U_Name())) && (InStr(STRING001, "RESUME.UPL") == 0)) Then
  54.             FClose 1
  55.             INTEGER001 = 0
  56.             FOpen 1, ReadLine(PCBDat(), 46), 2, 0
  57.             While (Ferr(1) == 0) Do
  58.                 FGet 1, STRING004
  59.                 If (InStr(STRING004, Left(Right(STRING001, Len(STRING001) - 10), InStr(Right(STRING001, Len(STRING001) - 10), "Aborted") - 3))) INTEGER001 = 1
  60.             EndWhile
  61.             If (INTEGER001 == 0) Gosub LABEL002
  62.             FClose 1
  63.         Endif
  64.         If (Ferr(0)) Break
  65.     EndWhile
  66.     :LABEL001
  67.     AnsiPos 10, 3
  68.     Print "                                                                     "
  69.     AnsiPos 1, 5
  70.     PrintLn "@X7B SEARCH COMPETE!                                                               @X07"
  71.     Delay 50
  72.     End
  73.     :LABEL002
  74.     STRING003 = Left(Right(STRING001, Len(STRING001) - 10), InStr(Right(STRING001, Len(STRING001) - 10), "Aborted") - 3)
  75.     AnsiPos 10, 3
  76.     Print "@X0B" + STRING003 + "                    "
  77.     AnsiPos 48, 3
  78.     Print "@X0FYou are continue UPLOAD? @X0FY@X07/@X0FN/Q"
  79.     :LABEL003
  80.     STRING001 = Upper(Inkey())
  81.     If (STRING001 == "") Goto LABEL003
  82.     If (STRING001 == "N") Then
  83.         AnsiPos 10, 3
  84.         Print " @X8B■ SEARCH ABORTED UPLOAD@X07                                             "
  85.         Return
  86.     Endif
  87.     If (STRING001 == "Q") Then
  88.         Goto LABEL001
  89.     Endif
  90.     If (STRING001 == "Y") Then
  91.         Cls
  92.         PrintLn "@X79 FOUND :                                                                       @X07"
  93.         AnsiPos 8, 1
  94.         Print "@X70" + STRING003 + "@X7B START YOUR MODEM FOR CONTINUE UPLOAD@X07"
  95.         AnsiPos 1, 2
  96.         KbdStuff "U RESUME.UPL" + Chr(13)
  97.         KbdStuff "┌─────────────────────────────────────────┐" + Chr(13)
  98.         KbdStuff "│ RESUME UPLOAD v1.0 Coded by Moon Shadow │" + Chr(13)
  99.         KbdStuff "│                                         │" + Chr(13)
  100.         KbdStuff "│      DESCRIPTION OF FILE SKIPPED!       │" + Chr(13)
  101.         KbdStuff "└─────────────────────────────────────────┘" + Chr(13) + Chr(13)
  102.         End
  103.     Endif
  104.     Goto LABEL003
  105.  
  106. ;------------------------------------------------------------------------------
  107. ;
  108. ; Usage report (before postprocessing)
  109. ;
  110. ; ■ Statements used :
  111. ;
  112. ;    3       End
  113. ;    3       Cls
  114. ;    15      Goto 
  115. ;    6       Let 
  116. ;    6       Print 
  117. ;    8       PrintLn 
  118. ;    13      If 
  119. ;    2       FOpen 
  120. ;    3       FClose 
  121. ;    3       FGet 
  122. ;    1       Log 
  123. ;    1       Gosub 
  124. ;    1       Return
  125. ;    1       Delay 
  126. ;    1       Newline
  127. ;    6       KbdStuff 
  128. ;    8       AnsiPos 
  129. ;
  130. ;
  131. ; ■ Functions used :
  132. ;
  133. ;    11      +
  134. ;    6       -
  135. ;    9       ==
  136. ;    11      !
  137. ;    4       &&
  138. ;    2       ||
  139. ;    4       Len(
  140. ;    2       Upper()
  141. ;    2       Left()
  142. ;    4       Right()
  143. ;    3       Ferr()
  144. ;    7       Chr()
  145. ;    9       InStr()
  146. ;    1       Date()
  147. ;    1       U_Name()
  148. ;    1       Inkey()
  149. ;    5       PCBDat()
  150. ;    5       ReadLine()
  151. ;    1       GetToken()
  152. ;    3       Exist()
  153. ;
  154. ;------------------------------------------------------------------------------
  155. ;
  156. ; Analysis flags : d
  157. ;
  158. ; d - Access PCBOARD.DAT ■ 2
  159. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  160. ;     for many PPE so they can find various informations on the system
  161. ;     (system paths, max number of lines in messages, ...) but it may also
  162. ;     be a way to gather vital informations.
  163. ;     ■ Search for : PCBDAT()
  164. ;
  165. ;------------------------------------------------------------------------------
  166. ;
  167. ; Postprocessing report
  168. ;
  169. ;    0       For/Next
  170. ;    2       While/EndWhile
  171. ;    6       If/Then or If/Then/Else
  172. ;    0       Select Case
  173. ;
  174. ;------------------------------------------------------------------------------
  175. ;                 AEGiS Corp - Break the routines, code against the machines!
  176. ;------------------------------------------------------------------------------
  177.